home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1997 March / Image.iso / schwieri.dxr / Schwierigk_46_Wetten-Text (E) vorbereiten.ls < prev    next >
Encoding:
Text File  |  1996-10-28  |  1.1 KB  |  36 lines
  1. global gWette, gWetten, gWettIni, gParams, gParamsAll, gDifficulty, gDragging, gPlayers, gPlayerNumber
  2.  
  3. on enterFrame
  4. end
  5.  
  6. on exitFrame
  7.   invisibleSprites(15, 17)
  8.   set gDragging to 0
  9.   set gWette to getAt(gWetten, 1)
  10.   if gWette < 10 then
  11.     set gWettIni to loadini("Wette0" & gWette & ".ini")
  12.   else
  13.     set gWettIni to loadini("Wette" & gWette & ".ini")
  14.   end if
  15.   set gParamsAll to getAt(gWettIni, 1)
  16.   set gParams to gParamsAll
  17.   set the puppet of sprite 12 to 1
  18.   invisibleSprites(9, 12)
  19.   invisibleSprites(19, 21)
  20.   set the castNum of sprite 12 to the number of member "WettTxt01" + gWette - 1
  21.   set the ink of sprite 12 to 36
  22.   set the locH of sprite 12 to 5
  23.   set the locV of sprite 12 to 40
  24.   set gDifficulty to getAt(getAt(gPlayers, gPlayerNumber), 2)
  25.   SetWetteParamsTextfeld()
  26.   set the puppet of sprite 2 to 1
  27.   set the visible of sprite 2 to 0
  28.   set the castNum of sprite 2 to the number of member "Icon01gelb" + gWette - 1
  29.   set the blend of sprite 2 to 100
  30.   set the locH of sprite 2 to 593
  31.   set the locV of sprite 2 to 24
  32.   put getAt(getAt(gPlayers, gPlayerNumber), 1) into field "NameField"
  33.   set the visible of sprite 2 to 1
  34.   preLoad(the frame + 1)
  35. end
  36.